object ParadoxDemoForm: TParadoxDemoForm Left = 78 Top = 3 Width = 760 Height = 599 Caption = 'Paradox cascaded delete demo' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] PixelsPerInch = 96 Position = poDefault WindowState = wsMaximized TextHeight = 13 object Image1: TImage Left = 20 Top = 524 Width = 45 Height = 45 Picture.Data = {} Stretch = True end object GroupBox1: TGroupBox Left = 4 Top = 0 Width = 189 Height = 517 Caption = 'Master' Color = clBtnFace ParentColor = False TabOrder = 0 object DBNavigator1: TDBNavigator Left = 8 Top = 20 Width = 172 Height = 25 DataSource = MasterSource VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel] TabOrder = 0 end object DBGrid1: TDBGrid Left = 8 Top = 48 Width = 173 Height = 461 Hint = 'Master table - MasterCode field is linked to detail #1 and #2 ta' + 'bles'#39's MasterCode field' Ctl3D = True DataSource = MasterSource Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 1 TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] end end object GroupBox2: TGroupBox Left = 204 Top = 0 Width = 189 Height = 285 Caption = 'Detail #1' TabOrder = 1 object DBNavigator2: TDBNavigator Left = 8 Top = 20 Width = 172 Height = 25 DataSource = DetailSource1 VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel] TabOrder = 0 end object DBGrid2: TDBGrid Left = 8 Top = 48 Width = 173 Height = 229 Hint = 'Detail table #1 - MasterCode field is linked to master table'#39's M' + 'asterCode field' DataSource = DetailSource1 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Options = [dgEditing, dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgCancelOnExit] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 1 TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] end end object GroupBox3: TGroupBox Left = 204 Top = 292 Width = 189 Height = 285 Caption = 'Detail #2' TabOrder = 2 object DBNavigator3: TDBNavigator Left = 8 Top = 20 Width = 172 Height = 25 DataSource = DetailSource2 VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel] TabOrder = 0 end object DBGrid3: TDBGrid Left = 8 Top = 48 Width = 173 Height = 229 Hint = 'Detail table #2 - MasterCode field is linked to master table'#39's M' + 'asterCode field' DataSource = DetailSource2 Options = [dgEditing, dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgCancelOnExit] ParentShowHint = False ShowHint = True TabOrder = 1 TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] end object Detail2CheckBox: TCheckBox Left = 104 Top = 0 Width = 61 Height = 16 Caption = 'View all' Color = clBtnFace Ctl3D = True ParentColor = False ParentCtl3D = False TabOrder = 2 OnClick = Detail2CheckBoxClick end end object GroupBox4: TGroupBox Left = 404 Top = 0 Width = 193 Height = 285 Caption = 'SubDetail #1 / 1' TabOrder = 3 object DBNavigator4: TDBNavigator Left = 8 Top = 20 Width = 172 Height = 25 DataSource = SubDetail11Source VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel] TabOrder = 0 end object DBGrid4: TDBGrid Left = 8 Top = 48 Width = 177 Height = 229 Hint = 'SubDetail table #1 / 1 - DetailText field is linked to detail #1' + ' table'#39's Detail1Text field' DataSource = SubDetail11Source Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Options = [dgEditing, dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgCancelOnExit] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 1 TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] end end object GroupBox5: TGroupBox Left = 604 Top = 0 Width = 193 Height = 285 Caption = 'SubDetail #2 / 1' TabOrder = 4 object DBNavigator5: TDBNavigator Left = 8 Top = 20 Width = 172 Height = 25 DataSource = SubDetail12Source VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel] TabOrder = 0 end object DBGrid5: TDBGrid Left = 8 Top = 48 Width = 177 Height = 229 Hint = 'SubDetail table #1 / 2 - DetailText field is linked to detail #1' + ' table'#39's Detail1Text field' DataSource = SubDetail12Source Options = [dgEditing, dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgCancelOnExit] ParentShowHint = False ShowHint = True TabOrder = 1 TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] end end object GroupBox6: TGroupBox Left = 404 Top = 292 Width = 193 Height = 285 Caption = 'SubDetail #1 / 2' TabOrder = 5 object DBNavigator6: TDBNavigator Left = 8 Top = 20 Width = 172 Height = 25 DataSource = SubDetail21Source VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel] TabOrder = 0 end object DBGrid6: TDBGrid Left = 8 Top = 48 Width = 177 Height = 229 Hint = 'SubDetail table #2 / 1 - DetailText field is linked to detail #2' + ' table'#39's Detail1Text field' DataSource = SubDetail21Source Options = [dgEditing, dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgCancelOnExit] ParentShowHint = False ShowHint = True TabOrder = 1 TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] end end object GroupBox7: TGroupBox Left = 604 Top = 292 Width = 193 Height = 285 Caption = 'SubDetail #2 / 2' TabOrder = 6 object DBNavigator7: TDBNavigator Left = 8 Top = 20 Width = 172 Height = 25 DataSource = SubDetail22Source VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel] TabOrder = 0 end object DBGrid7: TDBGrid Left = 8 Top = 48 Width = 177 Height = 229 Hint = 'SubDetail table #2 / 2 - DetailText field is linked to detail #2' + ' table'#39's Detail1Text field' DataSource = SubDetail22Source Options = [dgEditing, dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgCancelOnExit] ParentShowHint = False ShowHint = True TabOrder = 1 TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] end end object Detail1CheckBox: TCheckBox Left = 308 Top = 0 Width = 61 Height = 16 Caption = 'View all' Color = clBtnFace Ctl3D = True ParentColor = False ParentCtl3D = False TabOrder = 7 OnClick = Detail1CheckBoxClick end object Detail11CheckBox: TCheckBox Left = 508 Top = 0 Width = 61 Height = 16 Caption = 'View all' Color = clBtnFace Ctl3D = True ParentColor = False ParentCtl3D = False TabOrder = 8 OnClick = Detail11CheckBoxClick end object Detail12CheckBox: TCheckBox Left = 708 Top = 0 Width = 61 Height = 16 Caption = 'View all' Color = clBtnFace Ctl3D = True ParentColor = False ParentCtl3D = False TabOrder = 9 OnClick = Detail12CheckBoxClick end object Detail21CheckBox: TCheckBox Left = 508 Top = 292 Width = 61 Height = 16 Caption = 'View all' Color = clBtnFace Ctl3D = True ParentColor = False ParentCtl3D = False TabOrder = 10 OnClick = Detail21CheckBoxClick end object Detail22CheckBox: TCheckBox Left = 708 Top = 292 Width = 61 Height = 16 Caption = 'View all' Color = clBtnFace Ctl3D = True ParentColor = False ParentCtl3D = False TabOrder = 11 OnClick = Detail22CheckBoxClick end object Button1: TButton Left = 84 Top = 532 Width = 89 Height = 33 Caption = 'Exit' Font.Color = clRed Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 12 OnClick = Button1Click end object MasterTable: TPXTable Active = True AfterInsert = RefreshDetailTables AfterEdit = RefreshDetailTables AfterPost = RefreshDetailTables AfterDelete = RefreshDetailTables DatabaseName = 'PROBA' TableName = 'MASTER.DB' Left = 12 Top = 16 end object MasterSource: TDataSource DataSet = MasterTable Left = 40 Top = 16 end object DetailTable1: TPXTable Active = True AfterInsert = RefreshSubDetailTables1 AfterEdit = RefreshSubDetailTables1 AfterPost = RefreshSubDetailTables1 AfterDelete = RefreshSubDetailTables1 DatabaseName = 'PROBA' IndexFieldNames = 'MasterCode' MasterFields = 'MasterCode' MasterSource = MasterSource TableName = 'DETAIL1.DB' Left = 212 Top = 16 end object DetailSource1: TDataSource DataSet = DetailTable1 Left = 240 Top = 16 end object DetailTable2: TPXTable Active = True AfterInsert = RefreshSubDetailTables2 AfterEdit = RefreshSubDetailTables2 AfterPost = RefreshSubDetailTables2 AfterDelete = RefreshSubDetailTables2 DatabaseName = 'PROBA' IndexFieldNames = 'MasterCode' MasterFields = 'MasterCode' MasterSource = MasterSource TableName = 'DETAIL2.DB' Left = 212 Top = 308 end object DetailSource2: TDataSource DataSet = DetailTable2 Left = 240 Top = 308 end object SubDetail11Source: TDataSource DataSet = SubDetail11Table Left = 440 Top = 16 end object SubDetail12Table: TPXTable Active = True DatabaseName = 'PROBA' IndexFieldNames = 'Detail1Text' MasterFields = 'Detail1Text' MasterSource = DetailSource1 TableName = 'DETAIL1B.DB' Left = 612 Top = 16 end object SubDetail12Source: TDataSource DataSet = SubDetail12Table Left = 640 Top = 16 end object SubDetail21Table: TPXTable Active = True DatabaseName = 'PROBA' IndexFieldNames = 'Detail2Text' MasterFields = 'Detail2Text' MasterSource = DetailSource2 TableName = 'DETAIL2A.DB' Left = 412 Top = 308 end object SubDetail22Table: TPXTable Active = True DatabaseName = 'PROBA' IndexFieldNames = 'Detail2Text' MasterFields = 'Detail2Text' MasterSource = DetailSource2 TableName = 'DETAIL2B.DB' Left = 612 Top = 308 end object SubDetail21Source: TDataSource DataSet = SubDetail21Table Left = 440 Top = 308 end object SubDetail22Source: TDataSource DataSet = SubDetail22Table Left = 640 Top = 308 end object SubDetail11Table: TPXTable Active = True DatabaseName = 'PROBA' IndexFieldNames = 'Detail1Text' MasterFields = 'Detail1Text' MasterSource = DetailSource1 TableName = 'DETAIL1A.DB' Left = 412 Top = 16 end end